home *** CD-ROM | disk | FTP | other *** search
- stack 50000 ;ncftp can abort if it doesn't have plenty of stack!
-
- ;Make sure EasyReq is somewhere in your path (c: is a good place!)
- c:easyreq >env:GadAnswer "Do you want to download a new RECENT listing?" "GadMGet Script" "Yes|No|Cancel"
-
- if $GadAnswer eq 0
- quit
- endif
-
- if $GadAnswer eq 1
- cd txt: ;Change this to wherever you wish to keep RECENT
- amitcp:bin/ncftp -r wcarchive.cdrom.com:/pub/aminet/RECENT ;Change this to your favorite FTP site
- endif
-
- ;You may need to specify the path to GadMGet here if it's not in your default path!
- gadmget txt:recent OUTPUT t:getfiles NOSIMPLEPATHS KEEPGETSORT GETSORT Size
-
- if not `list t:getfiles lformat="%L"` eq "empty"
- cd downloads: ;Change this to wherever you want to receive your new files
- amitcp:bin/ncftp -r wcarchive.cdrom.com:/pub/aminet/ <t:getfiles ;Change this site as well
- endif
-
- delete >nil: t:getfiles
-